Amiga Plus 2000 #4/Amiga Plus CD - 2000 - No. 4.iso/Tools/Treiber/Misc/FastATA40000/FastATA-Install

Text File | 2000-01-29 | 8.3 KB | 399 lines

(set #kkversion (getversion))
(set #kkversion (/ #kkversion 65536) )
(set #ilnapedow 3)
(set alinstal 1)
(set #proc (database "cpu"))
(if (< #kkversion 39)
   (abort "\n\nKickstart 3.0 or higher is required!")
)

(message "\n\n\n\nWelcome to FastATA4000! ")

(set reinstalacja
 (askchoice
  (prompt "")
   (help "\nSelect Installation only when you install this software"
     " for the first time on this HDD, otherwise select Reinstallation.")
   (choices "Installation" "Reinstallation")
   (default 0)
 )
)
(if reinstalacja
 (set wybor 0)
 (set wybor
  (askbool
   (prompt "\n\n\n\nMay I change your s:startup-sequence?")
   (help "\nIf you agree to change your s:startup-sequence, the installer"
      "will add lines:\n\n C:CheckLMB\n"
      " IF WARN\n SYS:Prefs/FastATAPrefs\n ENDIF\n C:FastATA.driver QUIET")
   (choices  "Yes"  "No")
   (default 1)
  )
 )
)

(copylib
   (prompt "FastATA.driver will be copied to C: directory.")
   (help )
   (source "FastATA.driver")
   (confirm)
   (dest "C:")
)

(copylib
   (prompt "FastATAPrefs will be copied to SYS:Prefs directory.")
   (help )
   (source "FastATAPrefs")
   (confirm)
   (infos)
   (dest "SYS:Prefs")
)

(copyfiles
   (prompt "ATAPIFormat will be copied to C: directory.")
   (source "ATAPIFormat")
   (confirm)
   (help )
   (dest "C:")
)

(copylib
   (prompt "DriveSpeed will be copied to C: directory.")
   (help )
   (source "DriveSpeed")
   (confirm)
   (dest "C:")
)

(copylib
   (prompt "ReadTest will be copied to C: directory.")
   (help )
   (source "ReadTest")
   (confirm)
   (dest "C:")
)

(copyfiles
   (prompt "CheckLMB will be copied to C: directory.")
   (source "CheckLMB")
   (help )
   (dest "C:")
)

(if wybor
   (
      (copyfiles
        (source "S:startup-sequence")
        (dest "RAM:")
      )
      (textfile
        (dest "S:startup-sequence")
        (append "C:CheckLMB\nIF WARN\n")
        (append "SYS:Prefs/FastATAPrefs\nENDIF\nC:FastATA.driver QUIET\n")
        (include "RAM:startup-sequence")
      )
      (delete "RAM:startup-sequence")
   )
)

(if (> #ilnapedow 0)
 (
  (set #zastap 1)
  (set #ls120
   (askchoice
    (prompt "\n\n\My first LS-120 (ZIP, SyQuest) is connected as:")
    (choices "None" "Primary Slave" "Secondary Master" "Secondary Slave")
    (default 1)
    (help )
   )
  )
  (if (> #ls120 0)
   (
    (set #ilnapedow (- #ilnapedow 1))
    (set #ls120 (+ #ls120 4))
   (set name (cat "DEVS:DosDrivers/PC" #ls120))
    (if (exists name)
     (set #zastap
      (askbool
       (prompt "\n\n\File " name " exists.\nMay I overwrite it?")
       (help )
       (default 0)
      )
     )
    )
    (if (= #zastap 1)
     (
      (set namep (cat "PC" #ls120))
      (set names (cat "mountlists/" namep))
      (copyfiles
       (prompt namep ".info will be copied to DEVS:Dosdrivers/ directory.")
       (help )
       (source names)
       (dest "DEVS:Dosdrivers/")
       (infos)
      )
     )
    )
   )
  )
 )
)

(if (AND (> #ilnapedow 0) (> #ls120 0))
 (
  (set #zastap 1)
  (set #ls120
   (askchoice
    (prompt "\n\n\My second LS-120 (ZIP, SyQuest) is connected as:")
    (choices "None" "Primary Slave" "Secondary Master" "Secondary Slave")
    (default 2)
    (help )
   )
  )
  (if (> #ls120 0)
   (
    (set #ilnapedow (- #ilnapedow 1))
    (set #ls120 (+ #ls120 4))
   (set name (cat "DEVS:DosDrivers/PC" #ls120))
    (if (exists name)
     (set #zastap
      (askbool
       (prompt "\n\n\File " name " exists.\nMay I overwrite it?")
       (help )
       (default 0)
      )
     )
    )
    (if (= #zastap 1)
     (
      (set namep (cat "PC" #ls120))
      (set names (cat "mountlists/" namep))
      (copyfiles
       (prompt namep ".info will be copied to DEVS:Dosdrivers/ directory.")
       (help )
       (source names)
       (dest "DEVS:Dosdrivers/")
       (infos)
      )
     )
    )
   )
  )
 )
)


(if (AND (> #ilnapedow 0) (> #ls120 0))
 (
  (set #zastap 1)
  (set #ls120
   (askchoice
    (prompt "\n\n\My third LS-120 (ZIP, SyQuest) is connected as:")
    (choices "None" "Primary Slave" "Secondary Master" "Secondary Slave")
    (default 3)
    (help )
   )
  )
  (if (> #ls120 0)
   (
    (set #ilnapedow (- #ilnapedow 1))
    (set #ls120 (+ #ls120 4))
   (set name (cat "DEVS:DosDrivers/PC" #ls120))
    (if (exists name)
     (set #zastap
      (askbool
       (prompt "\n\n\File " name " exists.\nMay I overwrite it?")
       (help )
       (default 0)
      )
     )
    )
    (if (= #zastap 1)
     (
      (set namep (cat "PC" #ls120))
      (set names (cat "mountlists/" namep))
      (copyfiles
       (prompt namep ".info will be copied to DEVS:Dosdrivers/ directory.")
       (help )
       (source names)
       (dest "DEVS:Dosdrivers/")
       (infos)
      )
     )
    )
   )
  )
 )
)

(message "\n\n\n\nFastATA4000 succesfully installed.\n")

(message "\n\n\n\nWelcome to AllegroCDFS! ")

(if (OR (= #proc "68000") (= #proc "68010"))
    (abort "\n\nProcessor 68020 or higher is required!")
)

(copylib
   (prompt "AllegroCDFS will be copied to L: directory.")
   (help )
   (source "AllegroCDFS")
   (confirm)
   (dest "L:")
)

(copyfiles
   (prompt "def_ISOCDDA.info will be copied to ENVARC: directory.")
   (help )
   (confirm)
   (source "icons/def_ISOCDDA.info")
   (dest "ENVARC:")
)

(copyfiles
   (prompt "def_CDDAdisk.info will be copied to ENVARC: directory.")
   (help )
   (confirm)
   (source "icons/def_CDDAdisk.info")
   (dest "ENVARC:")
)

(set wybor 0)
(set wybor
  (askbool
   (prompt "\n\n\n\nMay I delete all CDx mountlists in DEVS:Dosdrivers/?\nRecommended: YES.")
   (help )
   (choices  "Yes"  "No")
   (default 1)
  )
)
(if (= wybor 1)
 (delete "DEVS:dosdrivers/CD#?")
)

(if (> #ilnapedow 0)
 (
  (set #zastap 1)
  (set #cdrom
   (askchoice
    (prompt "\n\n\My first CD-ROM (CD-R, CD-RW, DVD) is connected as:")
    (choices "None" "Primary Slave" "Secondary Master" "Secondary Slave")
    (default 1)
    (help )
   )
  )
  (if (> #cdrom 0)
   (
    (set #ilnapedow (- #ilnapedow 1))
   (set name (cat "DEVS:DosDrivers/CD" #cdrom))
    (if (exists name)
     (set #zastap
      (askbool
       (prompt "\n\n\File " name " exists.\nMay I overwrite it?")
       (help )
       (default 0)
      )
     )
    )
    (if (= #zastap 1)
     (
      (set namep (cat "CD" #cdrom))
      (set names (cat "mountlists/" namep))
      (copyfiles
       (prompt namep ".info will be copied to DEVS:Dosdrivers/ directory.")
       (help )
       (source names)
       (dest "DEVS:Dosdrivers/")
       (infos)
      )
     )
    )
   )
  )
 )
)
(if (AND (> #ilnapedow 0) (> #cdrom 0))
 (
  (set #zastap 1)
  (set #cdrom
   (askchoice
    (prompt "\n\n\My second CD-ROM (CD-R, CD-RW, DVD) is connected as:")
    (choices "None" "Primary Slave" "Secondary Master" "Secondary Slave")
    (default 2)
    (help )
   )
  )
  (if (> #cdrom 0)
   (
    (set #ilnapedow (- #ilnapedow 1))
   (set name (cat "DEVS:DosDrivers/CD" #cdrom))
    (if (exists name)
     (set #zastap
      (askbool
       (prompt "\n\n\File " name " exists.\nMay I overwrite it?")
       (help )
       (default 0)
      )
     )
    )
    (if (= #zastap 1)
     (
      (set namep (cat "CD" #cdrom))
      (set names (cat "mountlists/" namep))
      (copyfiles
       (prompt namep ".info will be copied to DEVS:Dosdrivers/ directory.")
       (help )
       (source names)
       (dest "DEVS:Dosdrivers/")
       (infos)
      )
     )
    )
   )
  )
 )
)
(if (AND (> #ilnapedow 0) (> #cdrom 0))
 (
  (set #zastap 1)
  (set #cdrom
   (askchoice
    (prompt "\n\n\My third CD-ROM (CD-R, CD-RW, DVD) is connected as:")
    (choices "None" "Primary Slave" "Secondary Master" "Secondary Slave")
    (default 3)
    (help )
   )
  )
  (if (> #cdrom 0)
   (
    (set #ilnapedow (- #ilnapedow 1))
   (set name (cat "DEVS:DosDrivers/CD" #cdrom))
    (if (exists name)
     (set #zastap
      (askbool
       (prompt "\n\n\File " name " exists.\nMay I overwrite it?")
       (help )
       (default 0)
      )
     )
    )
    (if (= #zastap 1)
     (
      (set namep (cat "CD" #cdrom))
      (set names (cat "mountlists/" namep))
      (copyfiles
       (prompt namep ".info will be copied to DEVS:Dosdrivers/ directory.")
       (help )
       (source names)
       (dest "DEVS:Dosdrivers/")
       (infos)
      )
     )
    )
   )
  )
 )
)
(exit "\n\n\n\nAllegroCDFS succesfully installed." (quiet))